home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / Logical.ra < prev    next >
Encoding:
Text File  |  1986-10-21  |  706 b   |  53 lines  |  [THED/THTH]
  1. |
  2. |   RA¬
  3. |
  4. |    Logical Operators
  5. |
  6. |   ⌐ 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA¬ has the following logical!"
  10. "operators:!"
  11. "< -- less!"
  12. "= -- equal!"
  13. "> -- greater!"
  14. "┤ -- AND!"
  15. "º -- NOT!"
  16. "╞ -- OR!!"
  17. "True = -1, False = 0!!"
  18. #A;
  19. 3 4 < ! " less!"
  20. 3 4 = ! " equal !"
  21. 3 4 > ! " greater!"
  22. 3 4 ┤╩! " AND!"
  23. 3 º !   " NOT!"
  24. 0 º !   " NOT!"
  25. 3 4 ╞ ! " OR!"
  26. 0 1 - 0 1 - ┤ ! " AND!"
  27. 0 1 - 0 ╞ ! " OR!!"
  28. #A;
  29. "THE END."
  30.  
  31. $
  32. &A  "Hit any key:" ?ñ @ ╡`
  33. |
  34. |  RA title routine
  35. |
  36. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  37.  
  38. &O
  39. 40 100 ╜
  40. "RA¬"
  41. 60 45 ╜ 
  42. "⌐ 1986 COM~LINK & S.Koren" 
  43. 80 60 ╜
  44. "All rights reserved." `
  45.  
  46. &L
  47. 35 A: ("Ñ" A. 1 - A: A. 0 > ~ ) "!"`
  48.  
  49. &N
  50. "Ñ" 33 A: (" " A. 1 - A: A. 0 > ~ ) "Ñ" "!"`
  51.  
  52. &P ?ñ @ `
  53. $